home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / comm / Internet / TCP-IP-Master / Install_Master_D < prev    next >
Text File  |  1996-05-31  |  13KB  |  360 lines
  1. ;****************************************************************************;
  2. ;                                                                            ;
  3. ;$VER: TCP/IP-Master © 1996 THE DARK FRONTIER - Softwareentwiclung (21.05.96);
  4. ;                                                                            ;
  5. ; Email: frontier@starbase.inka.de      or IRC at: TurricaN@#AmigaGER        ;
  6. ;                                                                            ;
  7. ;****************************************************************************;
  8.  
  9.  
  10. ; +-///-+ System-Variablen ect...       +-///-+
  11.  
  12. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  13. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  14. (set osver (/ (getversion "LIBS:version.library") 65536))
  15. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  16. (set fastmem (- totmem graphmem))
  17.  
  18. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  19. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  20. (if (= osver 41) (set workbench "4.0")) 
  21.  
  22. (set cpu (database "cpu"))
  23. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  24. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  25. (if (= cpu 68040) (set #cpu 4)) 
  26. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  27.  
  28. (set vernum1 (getversion "TCP-IP-Master"))
  29. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  30. (set tvpipver (cat ver1 "." rev1))
  31.  
  32. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  33. (set lan 0)
  34.  
  35. (if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
  36.  
  37. (set #English    "English")  (set #Deutsch    "Deutsch")
  38.  
  39. (set mfound 0) (set newicon1 0) 
  40. (set keeper 1) (set firsttime 1)
  41.  
  42. ; +-///-+ Deutsche Sprachstrings        +-///-+
  43.  
  44. (set #about     (cat "\n\n\n Willkommen zum TCP/IP-Master " tcpipver "\n\nCopyright © 1995/96 by \n\n THE DARK FRONTIER Softwareentwicklung\n      Grundler Mathias     \n <frontier@starbase.inka.de>\n\n"))
  45. (set #wheretcpip "Wo wollen Sie den TCP/IP-Master installieren? Eine Schublade mit dem name "TCP-IP-Master" wird erzeugt")
  46. (set #need-os   "Der TCP-IP-Master benötigt mindestens die OS-Version 37 (2.1).")
  47. (set #000used   "Die normale Version für 68000 wird installiert!")
  48. (set #filethere1 "\n\n Der Installer hat die TCP-IP-Master Version ")
  49. (set #filethere2 "gefunden bei ")
  50. (set #filethere3 "\n\nDie alte Version wird zu ")
  51. (set #filethere4 " umbenannt und in der folgenden Schublade abgelegt")
  52. (set #backuptoxxx "BackUP der alten Version!")
  53. (set #copyover  "Alte Version überschreiben!")
  54. (set #tcpipfound "\n Der Installer hat eine bereits bestehende Kopie des Masters gefunden, was soll getan werden?\n")
  55. (set #askcpu    "\n Prozessor-Check: Welchen Prozessor besitzt Ihr Computer? Der Installer hat folgende CPU gefunden:\n")
  56. (set #newicon   "\n Wollen Sie das neue Icon über das Alte kopieren? Wenn sie die Tooltypes bereits gesetzt haben wählen Sie NEIN.\n")
  57. (set #nonewicon "Nein - Die Tooltypes sind gesetzt!")
  58. (set #yesnewicon "Ja - Drüberkopieren!")
  59. (set #pickicon  "\n Der TCP/IP-Master bietet Ihnen verschiedene Icons zu Auswahl, wählen Sie eins aus:\n")
  60. (set #nomultiview (cat "Der Installer kann das Programm Multiview nicht finden, oder Sie\n"
  61.                        "benutzen OS 2.x, sie können sich die Icons ansehen, wenn sie\n"
  62.                        "mit einem Bildanzeiger die Datei icons.iff anzeigen\n"))
  63. (set #whatcat   "\n Bitte die zu installierende Sprache wählen\n")
  64. (set #catnofind "Konnte das Catalog-File nicht finden, bitte das benötigte Catalogfile besorgen!\n Die Catalogfiles sind seperat im AmiNet, auf den AmiNet-CD`s und in Mailboxen erhältlich\n")
  65. (set #oktodelete1 "\nIst es in Ordnung, wenn der Installer das Alte Programm löscht\n um die Schublade anlegen zu können?\n")
  66. (set #oktodelete2 "\nIst es in Ordnung, wenn der Installer das Alte oder das\n umbenannte Programm löscht um die Schublade zu generieren?\m")
  67. (set #byebye    (cat "\n Die installation des TCP-IP-Masters ist beendet\n\n" ))
  68. (set #nofounddocs "\n\n Folgende Doks. konnten nicht installiert werden!\n")
  69. (set #whatdocs  "\n Welche Doks wollen Sie installieren?\n")
  70. (set #wheredocs "\n Wo wollen Sie die Doks installieren?\n")
  71.  
  72. ; +-///-+ Installation...               +-///-+
  73.  
  74. ; +-///-+ Begrüßung...                  +-///-+
  75. (message #about)
  76. (welcome)
  77.  
  78. ; +-///-+ Dir anlegen / File kopieren...+-///-+
  79.  
  80. (set Package (getassign "AmiTCP"))
  81. (if (= Package "") (set Package (getassign "Inet")) )
  82.  
  83. (set tcpipdir  (askdir (prompt #whereAmIRC)
  84.                (help   #whereAmIRC)
  85.                     (default Package)
  86.                )  
  87. )
  88.  
  89. (set where tcpipdir)
  90.  
  91. (complete 10)
  92.  
  93. (if (= 1 (exists (tackon where "TCP-IP-Master") ) ) 
  94.   (
  95.     (set vernum1 (getversion (tackon where "TCP-IP-Master") ))
  96.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  97.     (set tcpip_old (cat ver1 "." rev1))
  98.  
  99.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  100.                   (cat "TCP-IP-Master" tcpip_old) #filethere4 (tackon AmIRCdir "TCP-IP-Master") )
  101.     )
  102.     
  103.  
  104.     (copyfiles (source (tackon where "TCP-IP-Master"))
  105.                (dest where) 
  106.                (infos)
  107.                (newname (cat "TCP-IP-Master" tcpip_old))
  108.     )
  109.     
  110.     (delete (tackon tcpipdir "TCPIP-Master") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  111.     
  112.     (copyfiles  (source "icons/TCP-IP-Master.info")
  113.                 (dest tcpipdir))
  114.  
  115.     (if (< (exists (tackon tcpipdir "TCP-IP-Master")) 2) (makedir (tackon tcpipdir "TCP-IP-Master") (infos)) )    
  116.  
  117.     (copyfiles (source (tackon where (cat "TCP-IP-Master" tcpip_old) ))
  118.                        (dest (tackon tcpipdir "TCP-IP-Master")) 
  119.                        (infos)
  120.                
  121.     )
  122.  
  123.     (delete (tackon where (cat "TCP-IP-Master" tcpip_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  124.  
  125.     ;(set firsttime 1)
  126.  
  127.   )
  128. )
  129.  
  130. (complete 25)
  131.  
  132. (if (< (exists (tackon tcpipdir "TCP-IP-Master")) 2) (makedir (tackon tcpipdir "TCP-IP-Master") (infos)) )
  133. (set where (tackon tcpipdir "TCP-IP-Master"))
  134. (set @default-dest where)
  135.  
  136. ; +-///-+ Checken Welche CPU da ist     +-///-+
  137.  
  138. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  139.                          "68040" "68060"
  140.                 )
  141.              (prompt #askcpu)
  142.                      (help   #askcpu)
  143.                    (default #cpu)
  144.       )
  145. )
  146.  
  147. ; +-///-+ Version des OS ect festlegen  +-///-+
  148.  
  149. (if (< osver 39) ( (message (cat #need-os workbench #000used)) (set cpuPick 0) ))
  150.  
  151. ; +-///-+ Alte Version backupen...      +-///-+
  152.  
  153. (if (exists (tackon where "TCP-IP-Master")) 
  154.   (
  155.       (set vernum1 (getversion (tackon where "TCP-IP-Master") ))
  156.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  157.       (set tcpip_old (cat ver1 "." rev1))
  158.  
  159.       (set keeper  (askchoice (choices  (cat #backuptoXXX tcpip_old "'")  #copyover)
  160.                      (prompt #tcpipfound)
  161.                  (help   #tcpipfound)
  162.                      (default 0)
  163.                )
  164.       )    
  165.  
  166.  
  167.       (if (= keeper 0)
  168.          (copyfiles (source (tackon where "TCP-IP-Master"))
  169.                      (dest where) 
  170.                      (infos)
  171.                      (newname (cat "TCP-IP-Master" tcpip_old))
  172.          )
  173.       )          
  174.  
  175.       (set firsttime 1)
  176.     
  177.   )
  178.  
  179. (run (cat "run tcp-conv"))
  180.  
  181. )
  182.  
  183. ; +-///-+ Alte Version überschreiben ect.       +-///-+
  184.  
  185. (complete 50)
  186.  
  187. (if ( > cpuPick 1)
  188.    (copyfiles (source "Master020") (dest where) (optional "nofail") (newname "TCP-IP-Master") )
  189.  
  190.    (copyfiles (source "TCP-IP-Master") (dest where) (optional "nofail") )
  191. )
  192.  
  193. (if (= firsttime 0)  (copyfiles (source "TCP-IP-Master.info") (dest where) (optional "nofail") ) )
  194.  
  195. (if (= keeper 0) 
  196.   (
  197.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  198.                            (prompt #newicon)
  199.                        (help   #newicon)
  200.                            (default 0)
  201.             )
  202.    )
  203.   
  204.    (if (= newicon 0) 
  205.      (copyfiles (source "TCP-IP-Master.info") (dest where)  (optional "nofail") )
  206.    )
  207.  
  208.   )
  209. )
  210.  
  211. ; +-///-+ Icons kopieren...             +-///-+
  212.  
  213.   (
  214.   
  215.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  216.                            (prompt #newicon)
  217.                        (help   #newicon)
  218.                            (default 0)
  219.             )
  220.    )
  221.  
  222.    (if (= newicon 0) 
  223.      (
  224.        (if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
  225.        (if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
  226.        (if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "Icons/Icons.iff")) )
  227.        (if (<> mfound 1) (message #nomultiview))
  228.  
  229.  
  230.        (set pickicon (askchoice (choices "Master : Erde mit TCP/IP-Schrift"
  231.                                          "Master2: FTP/IRC/Mosaic zusammen"
  232.                                          "Master3: Nur Schrift (TCP/IP)"
  233.                                 )
  234.                                 (prompt #pickicon)
  235.                                 (help   #pickicon)
  236.                                 (default 0)
  237.             )
  238.        )
  239.  
  240.  
  241.  
  242.      )
  243.    )
  244.  
  245.   
  246.    (if (= pickicon 0) (copyfiles (source "Icons/Master.info")  (dest where) (newname "TCP-IP-Master.info") (optional "nofail") ))
  247.    (if (= pickicon 1) (copyfiles (source "Icons/Master2.info") (dest where) (newname "TCP-IP-Master.info") (optional "nofail") ))
  248.    (if (= pickicon 2) (copyfiles (source "Icons/Master3.info") (dest where) (newname "TCP-IP-Master.info") (optional "nofail") ))
  249.  
  250.   )
  251.  
  252. ; +-///-+ Alten Catalog ausfindigmachen...      +-///-+
  253.  
  254. (complete 75)
  255.  
  256. (set catalog (askchoice (choices #English #Deutsch)
  257.                            (prompt #whatcat)
  258.                        (help   #whatcat)
  259.                            (default lan)
  260.              )
  261. )
  262.  
  263. (if (= catalog 0) (set #lcat #English ))  (if (= catalog 1) (set #lcat #Deutsch))
  264.  
  265. (if (<> catalog 0)
  266.  (
  267.   (if (> (exists (cat "Catalogs/" #lcat "/TCPIP-Master.catalog")) 0)
  268.     (
  269.       (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  270.                                 (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  271.                             (help   #wherecat)
  272.                              (default 0)
  273.                      )  
  274.       )
  275.  
  276.       (if (= wherecat 1)
  277.         (
  278.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  279.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  280.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  281.          (copylib (source (cat "Catalogs/" #lcat "/TCPIP-Master.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  282.         )
  283.   
  284.         (
  285.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  286.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  287.          (copylib (source (cat "Catalogs/" #lcat "/TCPIP-Master.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  288.         )
  289.       )
  290.     )
  291.  
  292.     (message (cat "\nCatalogs/" #lcat "/TCPIP-Master.catalog\n\n" #catnofind)) 
  293.   ) 
  294.  )
  295. )
  296.  
  297. ; +-///-+ Standart-Buttons kopieren...  +-///-+
  298.  
  299. (complete 85)
  300.  
  301.     (copyfiles  (source "buttons")
  302.                 (dest "sys:Prefs/buttons")
  303.                 (optional "nofail")
  304.                 (all)
  305.                 (infos)
  306.                 )
  307.  
  308.     (copyfiles  (source "icons/tcp-ip-master.info")
  309.                 (dest tcpipdir)
  310.                 (optional "nofail")
  311.                 (all)
  312.                 (infos)
  313.                 )
  314.  
  315. ; +-///-+ dokumentation kopieren...     +-///-+
  316.  
  317. (complete 95)
  318.  
  319. (set nodocs 0)
  320.  
  321. (set docs (askoptions (choices "TCP-IP-Master.guide" "TCP-IP-Master.dok" "TCP-IP-Master.readme")
  322.               (prompt #whatdocs)
  323.                       (help #whatdocs)
  324.                   (default 7)
  325.       )
  326. )
  327.  
  328. (if (<> docs 0)
  329.  (
  330.    (set docsdir (askdir (prompt #wheredocs)
  331.                (help   #wheredocs)
  332.                     (default where)
  333.                 )  
  334.    )
  335.  
  336.    (if (> (exists "TCP-IP-Master.guide") 0) 
  337.     (if (IN docs 0) (copyfiles (source "TCP-IP-Master.guide") (dest docsdir) (infos) (optional "nofail") ) )
  338.     ( (set #nofounddocs (cat #nofounddocs "\n\nTCP-IP-Master.guide")) (set nodocs 1) )
  339.    )
  340.  
  341.    (if (> (exists "TCP-IP-Master.dok") 0) 
  342.     (if (IN docs 0) (copyfiles (source "TCP-IP-Master.dok") (dest docsdir) (infos) (optional "nofail") ) )
  343.     ( (set #nofounddocs (cat #nofounddocs "\n\nTCP-IP-Master.dok")) (set nodocs 1) )
  344.    )
  345.  
  346.    (if (> (exists "TCP-IP-Master.readme") 0) 
  347.     (if (IN docs 0) (copyfiles (source "TCP-IP-Master.readme") (dest docsdir) (infos) (optional "nofail") ) )
  348.     ( (set #nofounddocs (cat #nofounddocs "\n\nTCP-IP-Master.readme")) (set nodocs 1) )
  349.    )
  350.  
  351.    (if (= nodocs 1) (message #nofounddocs) ) 
  352.     
  353.  
  354.  )
  355. )
  356.  
  357. ; +-///-+ Ende und Abschieds-Message    +-///-+
  358. (complete 100)
  359. (exit #byebye)
  360.